home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47a.d64 / demo 5 - bw5_1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  53 lines
  1. 5 KX=4.8:KY=5.76:MN=2.5
  2. 6 LINE=49152:HARDCOPY=49155:CLEAR=49158
  3. 7 SYS CLEAR
  4. 10 DEFFNARC(X)=-ATN(X/SQR(1-X^2))+(null)/2
  5. 20 BW=180/(null)
  6. 30 CW=FNARC((4^2+5^2-3^2)/(2*5*4))*BW
  7. 50 DIM X1(50),Y1(50),X2(50),Y2(50),W(50),AB(50)
  8. 60 SYS LINE,1,192*KX-1,113*KY,192*KX-1,158*KY
  9. 70 SYS LINE,1,150*KX,113*KY,150*KX,158*KY
  10. 80 SYS LINE,1,192*KX-1,113*KY,150*KX,113*KY
  11. 90 SYS LINE,1,192*KX-1,158*KY,150*KX,158*KY
  12. 100 A=1
  13. 110 X1(1)=113:Y1(1)=50
  14. 120 X2(1)=158:Y2(1)=50
  15. 130 W(1)=90-CW:AB(1)=1
  16. 200 REM BERECHNEN DER DREIECKSSEITEN
  17. 210 SA=SQR( (X1(A)-X2(A))^2+(Y1(A)-Y2(A))^2 )
  18. 220 SB=SA/5 *4
  19. 230 SC=SA/5 *3
  20. 250 REM BERECHNEN DES 3. PUNKTES DES DREIECKS
  21. 260 DX=COS( W(A)/BW ) * SC
  22. 270 DY=SIN( W(A)/BW ) * SC
  23. 280 X3=X1(A)+DX
  24. 290 Y3=Y1(A)+DY
  25. 300 SYS LINE,1,(200-Y1(A))*KX-1,X1(A)*KY,(200-Y3)*KX-1,X3*KY
  26. 310 SYS LINE,1,(200-Y2(A))*KX-1,X2(A)*KY,(200-Y3)*KX-1,X3*KY
  27. 400 REM QUADRATE UEBER KATHETEN ZEICHNEN
  28. 410 Q1=X1(A)-DY : Q2=Y1(A)+DX
  29. 420 Q3=X3-DY : Q4=Y3+DX
  30. 425 :
  31. 430 X1(A+1)=Q1 : Y1(A+1)=Q2
  32. 440 X2(A+1)=Q3 : Y2(A+1)=Q4
  33. 445 W(A+1)=W(A)+ (90-CW):AB(A+1)=AB(A)+1
  34. 450 SYS LINE,1,(200-Y3)*KX-1,X3*KY,(200-Q4)*KX-1,Q3*KY
  35. 460 SYS LINE,1,(200-Q4)*KX-1,Q3*KY,(200-Q2)*KX-1,Q1*KY
  36. 470 SYS LINE,1,(200-Q2)*KX-1,Q1*KY,(200-Y1(A))*KX-1,X1(A)*KY
  37. 500 :
  38. 510 Q1=X3+(Y3-Y2(A)) : Q2=Y3+(X2(A)-X3)
  39. 520 Q3=X2(A)+(Y3-Y2(A)) : Q4=Y2(A)+(X2(A)-X3)
  40. 525 :
  41. 530 X1(A)=Q1 : Y1(A)=Q2
  42. 540 REMX2(A)=Q3 : Y2(A)=Q4
  43. 550 W(A)=W(A)- CW:AB(A)=AB(A)+1
  44. 560 SYS LINE,1,(200-Y3)*KX-1,X3*KY,(200-Q2)*KX,Q1*KY
  45. 570 SYS LINE,1,(200-Q2)*KX,Q1*KY,(200-Q4)*KX-1,Q3*KY
  46. 580 SYS LINE,1,(200-Q4)*KX-1,Q3*KY,(200-Y2(A))*KX-1,X2(A)*KY
  47. 590 X2(A)=Q3 : Y2(A)=Q4
  48. 595 IF SC<MN AND A=1 THEN 1000
  49. 600 IF SC<MN THEN A=A-1:GOTO 200
  50. 610 A=A+1:GOTO200
  51. 1000 REM
  52. 1010 SYS HARDCOPY,1850
  53.